home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.20020314-20021006 / 000258_fdc@columbia.edu_Fri Aug 2 10:11:23 EDT 2002.msg < prev    next >
Text File  |  2002-10-06  |  5KB  |  109 lines
  1. Article: 13574 of comp.protocols.kermit.misc
  2. Path: newsmaster.cc.columbia.edu!news.columbia.edu!news-not-for-mail
  3. From: fdc@columbia.edu (Frank da Cruz)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Subject: Re: Renaming a file after receiving
  6. Date: 2 Aug 2002 10:11:09 -0400
  7. Organization: Columbia University
  8. Lines: 92
  9. Message-ID: <aie3tt$gch$1@watsol.cc.columbia.edu>
  10. References: <d49c50d5.0208011551.2aeed298@posting.google.com>
  11. NNTP-Posting-Host: watsol.cc.columbia.edu
  12. X-Trace: newsmaster.cc.columbia.edu 1028297471 25070 128.59.39.139 (2 Aug 2002 14:11:11 GMT)
  13. X-Complaints-To: postmaster@columbia.edu
  14. NNTP-Posting-Date: 2 Aug 2002 14:11:11 GMT
  15. Xref: newsmaster.cc.columbia.edu comp.protocols.kermit.misc:13574
  16.  
  17. In article <d49c50d5.0208011551.2aeed298@posting.google.com>,
  18. Luke Weese <hairyveggie@yahoo.com> wrote:
  19. : Hi.  So we all know, I am a newbie to C-Kermit scripting.  I have
  20. : written some scripts to dial in to a Wildcat BBS system, choose some
  21. : menu options, and receive a file using the Zmodem protocol (they
  22. : support Kermit protocol, but they highly recommend Zmodem because they
  23. : obviously havent read the Performance chapter in the Kermit manual,
  24. : judging by the 3.8% efficiency of the download).  All of this goes
  25. : through fine, but the only problem I had is that when using Zmodem,
  26. : the "as-name" argument to the receive command is apparently ignored. 
  27. :
  28. Because Zmodem is an external program.  In this scenario a file arrives
  29. and Zmodem receives it.  Kermit doesn't know the name of the file, so
  30. has no way to rename it.  This probably should be clarified in the
  31. documentation.
  32.  
  33. : I worked around this with some rather silly scripting involving
  34. : redirecting an "ls" command, parsing the filename and renaming, but I
  35. : was hoping someone could suggest a less clumsy way to rename the
  36. : downloaded file.  Here's the excerpt of my script:
  37. : 
  38. : -------------START----------------
  39. : mkdir tmpdir                        ; Make "tmpdir" to store this download
  40. : if fail goto mkdirfailed            ; Bail if permissions messed up
  41. : cd tmpdir                           ; Move into "tmpdir"
  42. : 
  43. : set take error on                   ; Set the error detection
  44. :
  45. This is the default anyway.
  46.  
  47. : set terminal autodownload off       ; Turn auto download off
  48. :                                     
  49. : set protocol zmodem rz {rz -a} {sz %s} {sz -a %s} rz {rz -a} ; Use Zmodem
  50. : 
  51. So far so good.  Btw, "set protocol zmodem" is sufficient -- the additional
  52. parameters are the default ones for Zmodem anyway.
  53.  
  54. : -------------DIALING, etc...------
  55. : 
  56. : receive hndyinvc.dat                          ; Download the file
  57. : If fail goto downloadfailure                  ; Error receiving file
  58. : 
  59. At this point you should have only newly downloaded files in your directory,
  60. since you just created and cd'd to it.
  61.  
  62. : .\%x := \Ffiles(*)                            ; Count the files in tmpdir
  63. : If = 1 \%x ls > ../dir.txt                    ; If only 1, list to parent dir
  64. : else goto oldfilesoutthere                    ; More than one file, bail
  65. : 
  66. This could happen if Zmodem received more than one file.
  67.  
  68. : cd ..                                         ; Go back to "hndmodem"
  69. : open read dir.txt                             ; Open list file
  70. : if fail goto nodirfile                        ; Bail if nonexistent
  71. : 
  72. : read \%o                                      ; Read first line, "total n"
  73. : if fail goto nodirfile                        ; Bail if nonexistent
  74. : read \%o                                      ; Read 2nd line with filename
  75. : if fail goto nodirfile                        ; Bail if nonexistent
  76. : 
  77. : .\%d := \Fsubstring(\%o,57)                   ; Get filename from pos 57 on
  78. : cd tmpdir                                     ; Go back to "tmpdir"
  79. : If exist \%d mv \%d ../hndyinvc.dat           ; If there, move back & rename
  80. : cd ..                                         ; Go back to "hndmodem"
  81. : 
  82. : rmdir tmpdir                                  ; Remove "tmpdir" for next time
  83. : If fail echo Could not remove "tmpdir" automatically. Please remove manually.
  84. : rm dir.txt                                    ; Remove "dir.txt"
  85. : If fail echo Could not remove "dir.txt" automatically. Pls remove manually.
  86. : 
  87. : ------------FINISH----------------
  88. : 
  89. : Please excuse any newbie mistakes in the coding, but feel free to
  90. : point them out.  Thanks in advance for any help.
  91. :
  92. \ffiles() not only returns the number of files that match its argument
  93. pattern, but also builds a list of files that you can cycle through with
  94. \fnextfile(), so you don't have to run an external directory-listing program
  95. or parse its output:
  96.  
  97.   if > \Ffiles(*) 1 stop 1 Multiple files received.
  98.   .filename := \fnextfile()
  99.   rename \m(filename) ../hndyinvc.dat
  100.   if fail stop 1 rename \m(filename) ../hndyinvc.dat failed.
  101.   cd ..
  102.   rmdir tmpdir
  103.   If fail stop 1 rmdir \v(dir)tmpdir failed.
  104.  
  105. Assigning \fnextfile() to a variable is necessary because every time you
  106. refer to \fnextfile() it returns the next filename.
  107.  
  108. - Frank
  109.